unit UnitTEMPMAIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit1, StdCtrls, DB, ADODB, Menus;

type
  Ttempmain = class(Tbaseform)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    aaa1: TMenuItem;
    Button3: TButton;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Button4: TButton;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N14: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure aaa1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tempmain: Ttempmain;

implementation

{$R *.dfm}
uses
  UnitDaYinJiaoKuanHuiZheng,UnitJFXM,UnitChengPiBiao,UnitDingYiXiTongCanShu,
  unitYinHanDaoZhanQingKuangChaXun,UnitLRFSXTSJJH,UnitYuYinHanDuiZhang,
  UnitDingYiFenZu,UnitDingYiZuYuan,UnitFenPeiZuYuanGuanLiQiYe,
  UnitXiaoZuZuYuanJinDuChaXun,UnitDaYinHeDingHuiZheng,
  UnitWeiWanChenQiYeQingKuangChaXun,UnitZhuYuanLiShiJinDuChaXun,
  UnitXiaoZuLiShiJinDuChaXun,UnitXiaoZuJinDuChaXun,UnitXiaoZuWeiWanChenQiYeQingKuangChaXun,
  UnitTJSJDJFQK,UnitDingYiQiYeFaPiaoMingCheng;

  
procedure Ttempmain.Button1Click(Sender: TObject);
begin
  inherited;
  with TFormDaYinJiaoKuanHuiZheng.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.Button2Click(Sender: TObject);
begin
  inherited;

  with TformChengPiBiao.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.aaa1Click(Sender: TObject);
begin
  inherited;
  with TfromDingYiXiTongCanShu.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.FormCreate(Sender: TObject);
begin
  inherited;
  Self.Top:=0;
end;

procedure Ttempmain.Button3Click(Sender: TObject);
begin
  inherited;
  with TformLRFSXTSJJH.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;
end;

procedure Ttempmain.N3Click(Sender: TObject);
begin
  inherited;
//YinHanDaoZhanQingKuangChaXun
  with TformYinHanDaoZhanQingKuangChaXun.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;


procedure Ttempmain.N4Click(Sender: TObject);
begin
  inherited;

  with TformYuYinHanDuiZhang.Create(Self) do     
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.N5Click(Sender: TObject);
begin
  inherited;

  with TformJFXM.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.Button4Click(Sender: TObject);
begin
  inherited;
  with TFormDaYinHeDingHuiZheng .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.N7Click(Sender: TObject);
begin
  inherited;
  with TformDingYiFenZu .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.N8Click(Sender: TObject);
begin
  inherited;
  with TformDingYiZuYuan .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;

  end;

end;

procedure Ttempmain.N9Click(Sender: TObject);
begin
  inherited;
  with TformFenPeiZuYuanGuanLiQiYe .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

procedure Ttempmain.N11Click(Sender: TObject);
begin
  inherited;
  with TformXiaoZuZuYuanJinDuChaXun .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;

end;

procedure Ttempmain.N16Click(Sender: TObject);
begin
  inherited;
  with TformZhuYuanLiShiJinDuChaXun .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;

end;

procedure Ttempmain.N13Click(Sender: TObject);
begin
  inherited;
  with TformWeiWanChenQiYeQingKuangChaXun .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;

end;

procedure Ttempmain.N15Click(Sender: TObject);
begin
  inherited;
  with Tformxiaozulishijinduchaxun .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;

end;

procedure Ttempmain.N10Click(Sender: TObject);
begin
  inherited;
  with TformXiaoZuJinDuChaXun .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;

end;

procedure Ttempmain.N12Click(Sender: TObject);
begin
  inherited;
  with TformXiaoZuWeiWanChenQiYeQingKuangChaXun .Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;

end;

procedure Ttempmain.N21Click(Sender: TObject);
begin
  inherited;
  with TformTJSJDJFQK.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

procedure Ttempmain.N14Click(Sender: TObject);
begin
  inherited;
  with TformDinYiQiYeFaPiaoMingCheng.Create(Self) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;

end;

end.
